home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / Wind.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  558 b   |  17 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. /* Open a window on WB. Let it be the default IDCMP. */
  4. wind=rxi_GetWindow('hello',,,,,,,,)
  5. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  6.  
  7. /* Wait for - ANY - IDCMP message to drop us through */
  8. /* Note that if no window opened, this returns a null string '' immediately */
  9. spec=rxi_WaitMsg(wind)
  10.  
  11. /* Print out the IDCMP spec to the CLI */
  12. SAY spec
  13.  
  14. /* Close the window, thus freeing any resources for it. */
  15. /* Note that if no window opened, this does nothing. */
  16. wind=rxi_EndWindow(wind)
  17.